home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / DO-2.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  358 b   |  16 lines
  1. ' DO-2.BAS
  2. ' This program demonstrates a DO WHILE loop.  Notice
  3. '   that the condition is at the bottom of the loop.
  4.  
  5. CLS
  6.  
  7. INPUT "Please enter a number between 10 and 15:  ", userNum%
  8. PRINT
  9.  
  10. DO
  11.     COLOR userNum%
  12.     PRINT "The value of userNum% is"; userNum%
  13.     userNum% = userNum% - 1   ' decrement userNum% by 1
  14. LOOP WHILE userNum% >= 10
  15.  
  16.